<!--#INCLUDE FILE="../programmer.inc"-->
<!--#INCLUDE FILE="wyconn.asp"-->
<!-- #include file="../function.asp" -->

<%
call bbsClose()
dim keyword2
keyword2=request("keyword")
sel2=request("sel1")
%>

<HTML>
<HEAD><title>Ϳɽ¼</title>
       <link href="admin.css" rel="stylesheet" type="text/css">
       <SCRIPT language="JavaScript">
                var current_menu;
                function showMenu(oneMenu){
	    current_menu = oneMenu;
	    current_menu.style.left=document.body.scrollLeft+event.clientX+event.offsetX-80;
	    current_menu.style.top=document.body.scrollTop+event.clientY-event.offsetY-120;
	    current_menu.style.visibility="visible";
	    current_menu.style.zIndex=10;
                }
                function hideMenu(){
	    if(current_menu!=null) current_menu.style.visibility="hidden";
                }
       </SCRIPT>
</HEAD>
<BODY topmargin=0>
<table border=0 width=100% cellspacing=1 cellpadding=1>
        <tr>
                <td height=70 width=100 bgcolor=greenyellow>
                       <img border="0" src="../images/tushanWYL.gif" width="100" height="70" align=middle vspace=0 hspace=0>
                <td bgcolor=dodgerblue>
                       <a href=../advertisement/wylad/top.htm target="new">
                       <%
                              set objad=server.createobject("mswc.adrotator")
                              response.write objad.getadvertisement("../advertisement/wylad/topadrot.txt")
                              set objad=nothing
                        %>
                        </a>
               </td>
        </tr>
</table>

<hr>
<table border=0 width=980>
        <form name=wy action=wy.asp method=post>
        <tr>
               <td width=35%>  
                       <span style="font-family:Ĳ;font-size:20">
                       <%if request("keyword")<>"" then%>
                                <a href=wy.asp>¼</a>&nbsp;&nbsp;
                        <%else%>
                                ¼
                        <%end if%>
                        </span>
               <td align=center bgcolor=LightBlue width=37%>
                        <span style="font-size:20;color:#000070">ؼ:</span>
                        <input type=text size=8 name=keyword value=<%=keyword2%>>
                        <SELECT name=sel1>
		  <OPTION></OPTION>
		  <OPTION>û</OPTION>
		  <OPTION>ͥסַ</OPTION>
                                     <OPTION>Ȥ</OPTION>
                         </SELECT>
                         <input type=submit class=input1 name=b2 value=>
               </td>
               <td align=center>
                       <input type="button" value="رմ" onclick="javascript:self.close();">
               </td>
       </tr>
       </form>
</table>

<table border=0 width=2000 cellspacing=1 cellpadding=0>
       <tr align=center class=td>
               <b>
               <td class=tdr width=1%>
               <td class=tdr width=5%>û
               <td class=tdr width=5%>Ǽ
               <td class=tdr width=5%>
               <td class=tdr width=3%>Ա
               <td class=tdr width=5%>
               <td class=tdr width=10%>Ȥ
               <td class=tdr width=10%>ͥסַ
               <td class=tdr width=10%>绰
               <td class=tdr width=10%>ֻ
               <td class=tdr width=10%>
               <td class=tdr width=10%>ڵλ
               <td class=tdr width=10%>QQ
               </b>
       </tr>
<%
        if request.form("keyword")<>"" then
                   keyword2=trim(request("keyword"))
                   sel2=trim(request("sel1"))
                   if sel2="û" then
                          SQL = "SELECT * FROM ts_userinfo where (username like '%"& keyword2 &"%') Order By loginNow DESc"
                  elseif sel2="ͥסַ" then
                          SQL = "SELECT * FROM ts_userinfo where (dwellingPlace like '%"& keyword2 &"%') Order By loginNow DESc"
                  elseif sel2="Ȥ" then
                          SQL = "SELECT * FROM ts_userinfo where (interes like '%"& keyword2 &"%') Order By loginNow DESc"
                  else
                          sql="select * from ts_userinfo Order By loginNow DESc"
                  end if
        elseif request.querystring("keyword")<>"" then
                  keyword2=request.querystring("keyword")
                  SQL = "SELECT * FROM ts_userinfo where (username like '%"& keyword2 &"%') Order By loginNow DESc"
        else
                  sql="select * from ts_userinfo Order By loginNow DESc"
        end if

        dim rs
        set rs=server.createobject("adodb.recordset")
        rs.Open sql,conn,1,1
               if rs.EOF or rs.BOF then
                    if  request("sel1")<>"" then
                            Response.write ("<center><table><tr><td><br><br><font size=4 color=brown><b>ǰ޸û¼!</b></font><br><br></td></tr></table></center>")
                    else
                            Response.write ("<center><table><tr><td><br><br><font size=4 color=brown><b>ǰ޼¼!</b></font><br><br></td></tr></table></center>")
                    end if
                end if

                dim PageNo,RowCount,TSum
                if not rs.bof then
                     rs.pagesize=showlistok()
                     PageNo=REQUEST("PageNo")
                     if PageNo="" or PageNo=0 then PageNo=1
                     RS.AbsolutePage=PageNo
                     TSum=rs.pagecount
                     RowCount=rs.PageSize
                     PageNo=PageNo+1
                     PageNo=PageNo-1    
                     if PageNo<0 then
                          response.Write("ûһҳ!")
                          Response.End
                     End if
               End if
               DO WHILE NOT rs.EOF AND RowCount>0
                      call ShowPage()
                      RowCount = RowCount - 1
                      rs.MoveNext
               Loop
               call pages() 
        rs.Close
        set rs=nothing
%>
</table>
<br>
</b>
<!--#INCLUDE FILE="bottom.asp"-->
</BODY>
</HTML>

<%
Call conn_Nothing()

Sub bbsClose()
        dim rs,Sql                  
        Sql = "select bbsopen from option1"
        set rs=conn.execute(Sql)
              cbi=rs("bbsopen")
              if cbi<>"" then
                    if session("tslt_useridentity")<>1 and session("tslt_useridentity")<>2 then
                            response.redirect "../index.asp"
                            response.end
                    end if
              end if
         rs.close
         set rs=nothing
End Sub

Sub ShowPage()
       t1=rs("username")
       t11= starGrade(rs("username"))
       if rs("trueName")<>"" then t2=rs("trueName") else t2="-"
       if rs("sex")<>"" then t3=rs("sex") else t3="-"
       if rs("birthday")<>"" then t4=rs("birthday") else t4="-"
       if rs("interest")<>"" then t5=rs("interest") else t6="-"
       if rs("dwellingPlace")<>"" then t6=rs("dwellingPlace") else t5="-"
       if rs("phone")<>"" then t7=rs("phone") else t7="-"
       if rs("handset")<>"" then t8=rs("handset") else t8="-"
       if rs("Email")<>"" then t9=rs("Email") else t9="-"
       if rs("company")<>"" then t10=rs("company") else t10="-"
       if rs("myQQ")<>"" then t11=rs("myQQ") else t11="-"
       if session("tslt_username")=rs("username") then
              response.write "<tr class=td1 align=center><td align=center><a href=modify.asp?id=" & t1 & ">޸</a>"
       else
              response.write "<tr class=td1 align=center><td align=center><font color=bbbbbb>޸</font>"
       end if
       response.write "<td>"
%>
       <span onmousemove='showMenu(menu<%=rs("id")%>);event.cancelBubble=true' onmouseout='hideMenu(menu<%=rs("id")%>);event.cancelBubble=true' style='cursor:hand'>
       <%if session("tslt_username")=rs("username") then%>
             <a href='add_form.asp?yhm=<%=t1%>&id=<%=RS("id")%>' title='ϴҵƬ'><%=t1%></a>
       <%else%>
             <%=t1%>
       <%end if%>
       </span>
       <DIV id='menu<%=rs("id")%>' style='position:absolute;left:0;top:0;background-color:#CDECF5;width:110;visibility:hidden;border:1px solid black;padding:4px;filter:alpha (opacity=80,finishopacity=80, style=3)'>
       <span style="position: absolute; z-index: -1"><img border="0" src="images/tushan2.gif" width="80" height="40"></span>
       <span style="font-size:15;">&nbsp;ҵƬ</span>
       <p><img src=showimage.asp?id=<%=RS("id")%> width=110 height=80>
       </DIV>
       </td>
<%
       dd="<td>" & t11 & "<td>" & t2 & "<td>" & t3 & "<td>" & t4
       dd=dd & "<td>" & t5 & "<td>" & t6 & "<td>" & t7 & "<td>" & t8 & "<td>" & t9 & "<td>" & t10 & "<td>" & t11
       dd=dd  & "</tr><TR height='1' bgcolor=greenyellow><td colspan=12><td></TR>"
       dd=dd  & "</tr><TR height='5'><td colspan=11><td></TR>"
       response.write dd
End Sub

sub pages() 
       dim ii,p,n
       if TSum>10 then 
            if PageNo mod 10=0 then
                  currid=PageNo
                  currid1=PageNo-9
            else
                  if TSum mod 10=0 then 
                        currid=int(PageNo/10)*10+10
                 else 
                       if int(PageNo/10)=int(TSum/10) then currid=(TSum/10)*10 else currid=int(PageNo/10)*10+10
                 end if
                currid1=int(PageNo/10)*10+1
           end if
      else 
           currid=TSum mod 10
           currid1=int(TSum/10)*10+1
     end if
%>
     <table align=left>
          <tr><td>
<%
                 if TSum>1 Then
                       If PageNo=TSum or PageNo<>1 Then 
                             PrwePage=PageNo-1
                             Response.Write "<A class=a1 HREF=wy.asp?&Pageno="&PrwePage&"&keyword="&keyword2&"&sel1="&sel2
                             Response.Write "><font size=4>һҳ</font></A>  "              
                       End If  
                 End If          
%>
          </td></tr>
     </table>
     <table border="0"  align="left">
          <tr><td>
                 <FONT face=webdings size=2>
                 <%if PageNo=1 then%>
                         <span style="color: #FF0000">9</span>
                 <%else%>
                         <a class=a2 href="wy.asp?PageNo=1<%="&keyword="&keyword2&"&sel1="&sel2%>">9</a>
                <%end if%>
                <%if PageNo>10 then%>
                        <a class=a2 href="wy.asp?PageNo=<%=currid1-1&"&keyword="&keyword2&"&sel1="&sel2%>">7</a>
                <%end if%>
                </FONT>
                <strong>
<%
                 for i=currid1 to currid
                      if PageNo=i then 
	           response.Write("<font color=red size=4>"&i&"</font>  ")
                      else
%>
                            <FONT size=2>
                             <a class=a2 href="wy.asp?PageNo=<%=i&"&keyword="&keyword2&"&sel1="&sel2%>">
                            <%response.write i%>
                            </a>
                            </FONT>
                     <%end if%>
                     <%response.write " "%>
              <%next%>
              </strong>
              <FONT face=webdings size=2>
              <%if currid<TSum then%>
                     <a class=a2 href="wy.asp?PageNo=<%=currid+1&"&keyword="&keyword2&"&sel1="&sel2%>">8</a>
             <%end if%>
             </FONT> 
             <FONT face=webdings size=2>
             <%if PageNo=TSum then%>
                     <span style="color: #FF0000">:</span>
             <%else%>
                     <a class=a2 href="wy.asp?PageNo=<%=TSum&"&keyword="&keyword2&"&sel1="&sel2%>">:</a>
            <%end if%>
            </FONT>
          </td></tr>
     </table>
    <table align=left>
           <tr><td>
<% 
                 if TSum>1 Then
                       If pageno=1 or TSum>PageNo Then
                             NextPage=PageNo+1
                             Response.Write "<A  class=a1 HREF=wy.asp?PageNo="&NextPage&"&keyword="&keyword2&"&sel1="&sel2
                             Response.Write "><font size=4>һҳ</font></A>"
                       End If
                 End If
%>
          </td></tr>
     </table>
     <table align=right>
           <tr><td>
<%
                 if PageNo>TSum then
                      PageNo=TSum
                 end if
                 Response.Write "<font size=2>ҳΣ<font color= red><b>"& PageNo &"</b></font>/<b>"& TSum &"</b>ҳ ,<b>"& rs.recordcount &"</b></font>"
%>
           </td></tr>
     </table>
<%
end sub
%>